home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib07.dsk / MUSIC MAKER.int < prev    next >
Text File  |  2023-02-26  |  535b  |  20 lines
  1. 1 X=767
  2. 5 REM  -MOVE IT
  3. 10 FOR I=-10473 TO -10245
  4. 20 X=X+1
  5. 30  POKE X, PEEK (I)
  6. 40 NEXT I
  7. 45 REM  MODIFY IT
  8. 50  POKE 769,55: POKE 770,3: POKE 787,21
  9. 55  POKE 788,3: POKE 793,21: POKE 794,3
  10. 60  POKE 813,47: POKE 814,3: POKE 819,53
  11. 65  POKE 820,3: POKE 824,231: POKE 825,3
  12. 70  POKE 829,127: POKE 830,3: POKE 834,229
  13. 75  POKE 835,3: POKE 844,127: POKE 845,3
  14. 80  POKE 853,127: POKE 854,3: POKE 863,230
  15. 85  POKE 864,3: POKE 878,112: POKE 879,3
  16. 90  POKE 891,125: POKE 892,3
  17. 95 REM  -CREATE "&" COMMAND
  18. 100  POKE 1014,0: POKE 1015,3
  19. 105 END 
  20.